<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>5265</cardID>
<listID>2256</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon resumeStackdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"end resumeStackon openCardSend colorMe to this cardpass openCardunlock screenend openCardon closeStackAddColor removepass closeStackend closeStackon openStackset lockscreen to trueAddColor installglobal QToperationalput 1 into QToperationalset lockMessages to trueQTMovie versionput the result into xxxxput it into kkkif "Error" is in xxxx thenanswer "QuickTime is not available, some options will not be available"put 0 into QToperationalend ifset lockMessages to falsedisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"pass openStackset lockscreen to falseend openStackon doMenu menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "Languages" thengo to card 1 of stack "Guinness:mac:language samples" in a new windowelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Quit Encyclopedia" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTIcreditsgo to card 1 of stack "Guinness:Mac:Credits"end WTIcreditson WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTImaingo to card 1 of stack "Guinness:Mac:Main"end WTImainon WTIhelpgo to card 1 of stack "Guinness:Mac:Help"end WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIexplorego to card 1 of stack "Guinness:Mac:Explorer"end WTIexploreon WTIgallerygo to card 1 of stack "Guinness:Mac:Gallery"end WTIgalleryon WTIencyclgo to card 1 of stack "Guinness:Mac:Encyclopedia"end WTIencyclon WTIgoback-- global lastCard, lastBook-- go to card lastCard of lastBookgo to recent cardend WTIgobackon WTIgotopage CardN-- go to card CardNanswer "go to card # " & CardNend WTIgotopageon PlayMovie movieNameset cursor to 4-- put movieNameif last char of movieName is ":" then exit PlayMovieif there is a window "Movie Window" thenset replaceMovie of window "Movie Window" to movieNameget the resultif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieend ifset loop of window "movie Window" to trueelseput item 3 of the rect of this card + 10 & "," & 10 into movieLocput movieName into MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinishQTMovie OpenMovie, windoid, MyMoovie, deepestget the resultif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieend if--set windowName of window ExtractFileName(movieName) to "Movie Window"end ifend PlayMovieon DisposeVideoglobal movieIDif movieID is not empty and movieID is a number thenQTMovie Direct,movieID,Disposeput empty into movieIDend ifend DisposeVideoon idleglobal movieiDif movieID is not empty thenQTMovie Direct, movieID, idleend ifend idleon Titleend Titleon refreshglobal movieIDQTMovie Direct, Movie ID, Get, movieLocput the result into xyQTMovie Direct, Movie ID, Set. movieLoc, xyend refresh</script>
